home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / nekodemo / rtrv / shared.dir / 00354_2FrameScore.ls < prev    next >
Encoding:
Text File  |  1995-05-10  |  2.0 KB  |  37 lines
  1. on enterFrame
  2.   global gtpoem, gppoem, gtbio, gpbio, gcurrentnumber, gblenddraw, galreadyshownbutton, greq
  3.   set the volume of sound 1 to 150
  4.   if not soundBusy(1) then
  5.     puppetSound("RTRV")
  6.   end if
  7.   set the cursor of sprite 40 to [402, 404]
  8.   set the cursor of sprite 41 to [401, 403]
  9.   set the cursor of sprite 42 to [405, 406]
  10.   set the cursor of sprite 43 to [407, 408]
  11.   set the cursor of sprite 13 to [409, 410]
  12.   set the cursor of sprite 14 to [409, 410]
  13.   set the cursor of sprite 15 to [409, 410]
  14.   set the cursor of sprite 16 to [409, 410]
  15.   set galreadyshownbutton to 1
  16.   set greq to "J"
  17.   set a to 20
  18.   set b to a / 2
  19.   makepuppet(2, getbioname(gtbio, gcurrentnumber, "NK"), 100, 480, 260, 36)
  20.   puppetPalette(the number of cast string(getbioname(gtbio, gcurrentnumber, "NK")) - 1)
  21.   makepuppet(13, getbioname(gtbio, gcurrentnumber, "JN"), 100, 320 - b - (the width of cast getbioname(gtbio, gcurrentnumber, "JN") / 2), 50)
  22.   makepuppet(14, getbioname(gtbio, gcurrentnumber, "EN"), 100, 320 + b + (the width of cast getbioname(gtbio, gcurrentnumber, "EN") / 2), 53)
  23.   makepuppet(15, getpoemname(gtpoem, gcurrentnumber, 1), 100, 160, getpoempos(gtpoem, gcurrentnumber, 1) + (the height of cast getpoemname(gtpoem, gcurrentnumber, 1) / 2))
  24.   makepuppet(16, getpoemname(gtpoem, gcurrentnumber, 2), 100, 160, getpoempos(gtpoem, gcurrentnumber, 2) + (the height of cast getpoemname(gtpoem, gcurrentnumber, 2) / 2))
  25.   if count(getaProp(gtpoem, gcurrentnumber + 1)) >= 6 then
  26.     makepuppet(19, "LONG.mod", 100, 50 + the width of cast getpoemname(gtpoem, gcurrentnumber, 1), getpoempos(gtpoem, gcurrentnumber, 1) + the height of cast getpoemname(gtpoem, gcurrentnumber, 1))
  27.     makepuppet(20, "LONG.mod", 100, 50 + the width of cast getpoemname(gtpoem, gcurrentnumber, 2), getpoempos(gtpoem, gcurrentnumber, 2) + the height of cast getpoemname(gtpoem, gcurrentnumber, 2))
  28.   else
  29.     makepuppet(19, "DUMMY", 100, 50, 450, 36)
  30.     makepuppet(20, "DUMMY", 100, 50, 450, 36)
  31.   end if
  32.   updateStage()
  33. end
  34.  
  35. on exitFrame
  36. end
  37.